

! testy MMM

	program t1

!use MQuick

	integer :: i,n,in(10000)
	real :: data(10000),mean,median,mode,sigma,skew


	i = 0
	do
  	   i = i + 1 
  	   read(*,*,end=20) data(i)
	enddo
20 	continue

	call Quick(data,10000,in)
!	n = size(data)
!	write(*,*) n
        n=10000
	call MMM(data,n, 100.0,mean,median,mode,sigma,skew)

	write(*,*) 'n=',n,' mean=',mean,' median=',median,' mode=',mode
	write(*,*) 'sig=',sigma,' skew=',skew

	end
